
	MODULE constantes
	
	IMPLICIT NONE
	
	INTEGER, PARAMETER :: dp = 8
	REAL(dp),parameter :: kb=8.61734215D-5  !ev/K	
	REAL(dp),parameter :: e0=5.526349954E-3_dp	
	REAL(dp),parameter :: pi=3.141592654_dp
	REAL(dp),parameter :: T=500.0_dp


!  Parameters for Au 
	REAL(dp),parameter :: a_Au=4.08_dp
	REAL(dp),parameter :: c_Au=139.07_dp
	REAL(dp),parameter :: e_Au=0.007868_dp
	INTEGER,parameter :: q_Au=4.0_dp
	INTEGER,parameter :: p_Au=11.0_dp
	REAL(dp),parameter ::uu_Au=7.0_dp 


!  Parameters fo Ag 
	REAL(dp),parameter :: a_Ag=4.09_dp
	REAL(dp),parameter :: c_Ag=401.18_dp
	REAL(dp),parameter :: e_Ag=0.002_dp
	INTEGER,parameter :: q_Ag=3.0_dp
	INTEGER,parameter :: p_Ag=12.0_dp
	REAL(dp),parameter ::uu_Ag=6.26_dp 


!  Parameters fo Cu 
	REAL(dp),parameter :: a_Cu=3.61_dp
	REAL(dp),parameter :: c_Cu=112.35_dp
	REAL(dp),parameter :: e_Cu=0.0012_dp
	INTEGER,parameter :: q_Cu=3.0_dp
	INTEGER,parameter :: p_Cu=9.0_dp
	REAL(dp),parameter ::uu_Cu=6.47_dp 



	END module constantes
